Celestin Apprentice 2/Apprentice-Release2.iso/Tools/Languages/MacMETH 3.2.1/Examples/XYplane.MOD

Modula Implementation | 1992-12-29 | 583 b | 29 lines | [TEXT/MEDT]

IMPLEMENTATION MODULE XYplane;

IMPORT GraphicWindows, TerminalIn;

  VAR v: GraphicWindows.Window;

  PROCEDURE Open;
  BEGIN GraphicWindows.OpenGraphicWindow(v,50,20,570,770,"XYplane",GraphicWindows.Clear)
  END Open;

  PROCEDURE Clear;
  BEGIN GraphicWindows.Clear(v)
  END Clear;

  PROCEDURE Dot(x,y: INTEGER; mode: INTEGER);
  BEGIN GraphicWindows.Dot(v,x,y)
  END Dot;

  PROCEDURE IsDot(x, y: INTEGER): BOOLEAN;
  BEGIN HALT (* not implemented *)
  END IsDot;

  PROCEDURE Key(): CHAR;
  VAR ch: CHAR;
  BEGIN    TerminalIn.BusyRead(ch); RETURN ch
  END Key;

END XYplane.